home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db3plsar.arc / STMT.PRG < prev    next >
Encoding:
Text File  |  1986-08-04  |  2.3 KB  |  103 lines
  1. ******************************** (STMT.PRG)
  2. RESTORE FROM MADD1
  3. RESTORE FROM MADD2
  4. RESTORE FROM MPHONE
  5. CNTR=0
  6. CLEAR
  7. @ 11,1 SAY 'Bail out?  '
  8. ?
  9. ?
  10. STORE ' ' TO OPTION
  11. WAIT ' Y or N  'TO OPTION
  12. IF OPTION='Y'
  13.    RETURN
  14. ENDIF
  15. STORE 2 TO CNTR 
  16. SET HEADING OFF
  17. SET TALK OFF
  18. USE CUST
  19. DO WHILE .NOT. BOF()
  20.    CLEAR
  21.    USE CUST
  22.    GOTO CNTR 
  23.    STORE ACCT TO X
  24.    USE INV
  25.    SET EXACT ON
  26.    COUNT TO MCT FOR ACCT=X .AND. .NOT. PAID
  27.    IF MCT=0
  28.       USE CUST
  29.       GOTO CNTR
  30.       SKIP+1
  31.       STORE RECNO() TO CNTR
  32.       STORE ACCT TO X
  33.       LOOP
  34.    ENDIF
  35.    USE CUST
  36.    GOTO CNTR
  37.    STORE 0 TO A,B,C,D
  38.    STORE LEN(MTITLE) TO A
  39.    STORE (80-A)/2 TO A
  40.    STORE LEN(MADD1) TO B
  41.    STORE (80-B)/2 TO B
  42.    STORE LEN(MADD2) TO C
  43.    STORE (80-C)/2 TO C
  44.    STORE LEN(MPHONE) TO D
  45.    STORE (80-D)/2 TO D
  46.    SET DEVICE TO PRINT
  47.    SET PRINT ON
  48.    @ 1,35 SAY 'STATEMENT'
  49.    @ 2,A SAY MTITLE
  50.    @ 3,B SAY MADD1
  51.    @ 4,C SAY MADD2
  52.    @ 5,D SAY MPHONE
  53.    @ 6,36 SAY DATE()
  54.    @ 7,0 SAY ì
  55. '=================================================================ì
  56. ==============='
  57.    @ 8,0 SAY NAME
  58.    @ 8,51 SAY 'Amt last payment:'
  59.    @ 8,71 SAY LSTPAY
  60.    @ 9,0 SAY ADDRESS
  61.    @ 9,51 SAY 'Date last payment:'
  62.    @ 9,72 SAY NEWDATE
  63.    @ 10,0 SAY TRIM(CITY) +'  '+ STATE +'  '+ ZIP
  64.    @ 10,51 SAY 'Check number:'
  65.    @ 10,65 SAY CHKNO
  66.    @ 11,0 SAY PHONE
  67.    @ 11,51 SAY 'Unapplied Credits:'
  68.    @ 11,68 SAY UCREDIT
  69.    @ 12,0 SAY 'Account number:'
  70.    @ 12,17 SAY ACCT
  71.    @ 12,51 SAY 'Terms:'
  72.    @ 12,59 SAY TERMS
  73.    @ 13,0 SAY ì
  74. '=================================================================ì
  75. ==============='
  76.    @ 14,0 SAY 'Balance:'
  77.    @ 14,7 SAY STR(NET,8,2)
  78.    IF OLD_30 < 0.01
  79.       @ 14,20 SAY 'Thank you for your prompt payment.'
  80.    ENDIF
  81.    IF OLD_30 > 0.00
  82.       @ 14,17 SAY '>>>>>>>> Amount 30 days past due date:'
  83.       @ 14,54 SAY STR(OLD_30,8,2)
  84.    ENDIF
  85.    IF OLD_45 > 0.00
  86.       @ 14,65 SAY 'Over 45:'
  87.       @ 14,72 SAY STR(OLD_45,8,2)
  88.    ENDIF
  89.    IF OLD_60 > 0.00
  90.       @ 15,0 SAY '>>>>>>>>>>>>>>>>>>>>>>>>> Amount 60 days past due ì
  91. date:'
  92.       @ 15,54 SAY STR(OLD_60,8,2)
  93.    ENDIF
  94.    ? ì
  95. '=================================================================ì
  96. ==============='
  97.    USE INV
  98.    REPO FORM STMT FOR ACCT=X .AND. .NOT. PAID PLAIN NOEJECT TO ì
  99. PRINT
  100.    STORE CNTR +1 TO CNTR
  101. ENDDO
  102. RETURN
  103.